home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Updates⁄New / MicroPhone 2 Scripts / ChatMP2 / InitConv < prev    next >
Encoding:
Text File  |  1988-06-07  |  1.6 KB  |  40 lines  |  [TEXT/ttxt]
  1.  Settings File = TestBed
  2.  Script Name = InitConv
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   Remark "Initializes variables and terminal settings needed"
  9. 2   Remark "to make 'Do Conv' work properly."
  10. 3   Remark "====================================="
  11. 4   Remark "Make certain VT102 emulation is on,"
  12. 5   Remark "and auto wraparound as well."
  13. 6   Remark "====================================="
  14. 7   Set Term Param Type VT102 
  15. 8   Set Term Param Auto Wraparound Yes 
  16. 9   Remark "====================================="
  17. 10  Remark "VT100 code below erases entire screen!"
  18. 11  Remark "====================================="
  19. 12  Send Local to Screen  "^[[2J"
  20. 13  Remark "====================================="
  21. 14  Remark "Draw a horizontal line to seperate the regions."
  22. 15  Remark "====================================="
  23. 16  Do Script * "DrawHorizLine"
  24. 17  Remark "====================================="
  25. 18  Remark "VT102 code to create a scroll region from"
  26. 19  Remark "screen lines 1 to 18."
  27. 20  Remark "====================================="
  28. 21  Send Local to Screen  "^[[1;18r"
  29. 22  Remark "====================================="
  30. 23  Remark "Initialize variables that store cursor position."
  31. 24  Remark "====================================="
  32. 25  Set Variable inCursRow from Expression  "=1"
  33. 26  Set Variable inCursCol from Expression  "=1"
  34. 27  Set Variable outCursRow from Expression  "=22"
  35. 28  Set Variable outCursCol from Expression  "=1"
  36. 29  Remark "====================================="
  37. 30  Remark "'stopConv' when true stops execution of 'Do Conv.'"
  38. 31  Remark "====================================="
  39. 32  Set Variable stopConv from Expression  "=false"
  40.